home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swaga_c.zip
/
ANSI.SWG
/
0006_ANSI Ouput w- INT29.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
650b
|
26 lines
{
ROBERT ROTHENBURG
For those interested in using ANSI in Turbo Pascal (at least Dos v2-5
...I don't know if Dos 6 Uses this routine--Interrupt $29--or not)
here's a tip: The "undocumented" Fast PutChar interrupt is used by
ANSI.SYS, and thus anything you send to that interrupt will be
ANSI-interpreted (provided ANSI.SYS is loaded :).
Use this routine to output a Character to ANSI:
(you'll have to modify it to output Strings, of course).
}
Uses
Dos;
Procedure FastPutChar(C : Char);
{ Outputs only to "display", not stdout! Uses Dos v2-5. }
Var
Reg : Registers;
begin
Reg.AL := Ord(C);
Intr($29, Reg)
end;